home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Business / Check Stuff / HyperCheck / background_2713.txt < prev    next >
Encoding:
Text File  |  1988-04-19  |  7.6 KB  |  375 lines
  1. -- background: 2713 from stack: in
  2. -- bmap block id: 7705
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Balance
  6. ----- HyperTalk script -----
  7. on idle
  8.   global NAME
  9.   put field "NAME" into NAME
  10.   global ACC
  11.   put field "ACC NO" into ACC
  12.   put the time into field "TIME"
  13.   put the long date into field "DATE"
  14.   pass idle
  15. end idle
  16. on startUp
  17.   global NAME
  18.   put field "NAME" into NAME
  19.   global ACC
  20.   put field "ACC NO" into ACC
  21. end startUp
  22.  
  23.  
  24. -- part 3 (button)
  25. -- low flags: 00
  26. -- high flags: 8003
  27. -- rect: left=149 top=310 right=332 bottom=249
  28. -- title width / last selected line: 0
  29. -- icon id / first selected line: 0 / 0
  30. -- text alignment: 1
  31. -- font id: 0
  32. -- text size: 12
  33. -- style flags: 0
  34. -- line height: 16
  35. -- part name: ADD DEPOSIT
  36. ----- HyperTalk script -----
  37. on mouseUp
  38.   set lockScreen to true
  39.   go to last card of background "DEPOSIT"
  40.   get background field "DP NUM"
  41.   set lockScreen to false
  42.   doMenu "New Card"
  43.   put it + 1 into background field "DP NUM"
  44. end mouseUp
  45.  
  46.  
  47.  
  48. -- part 4 (button)
  49. -- low flags: 00
  50. -- high flags: 8003
  51. -- rect: left=254 top=310 right=332 bottom=364
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 1
  55. -- font id: 0
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: SERVICE CHARGE
  60. ----- HyperTalk script -----
  61. on mouseUp
  62.   set lockScreen to true
  63.   go to last card of background "SER CHARGE"
  64.   get background field "SC NUM"
  65.   set lockScreen to false
  66.   doMenu "New Card"
  67.   put it + 1 into background field "SC NUM"
  68. end mouseUp
  69.  
  70.  
  71.  
  72. -- part 5 (button)
  73. -- low flags: 00
  74. -- high flags: 8003
  75. -- rect: left=369 top=310 right=332 bottom=469
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 0 / 0
  78. -- text alignment: 1
  79. -- font id: 0
  80. -- text size: 12
  81. -- style flags: 0
  82. -- line height: 16
  83. -- part name: BALANCE SHEET
  84. ----- HyperTalk script -----
  85. on mouseUp
  86.   visual dissolve
  87.   go to card id 7429
  88. end mouseUp
  89.  
  90.  
  91.  
  92.  
  93. -- part 7 (button)
  94. -- low flags: 00
  95. -- high flags: 0000
  96. -- rect: left=9 top=309 right=334 bottom=38
  97. -- title width / last selected line: 0
  98. -- icon id / first selected line: 17779 / 17779
  99. -- text alignment: 1
  100. -- font id: 0
  101. -- text size: 12
  102. -- style flags: 0
  103. -- line height: 16
  104. -- part name: 
  105. ----- HyperTalk script -----
  106. on mouseUp
  107.   visual effect checkerboard
  108.   GO TO PREVIOUS CARD
  109. end mouseUp
  110.  
  111.  
  112.  
  113. -- part 8 (button)
  114. -- low flags: 00
  115. -- high flags: 0000
  116. -- rect: left=474 top=309 right=334 bottom=503
  117. -- title width / last selected line: 0
  118. -- icon id / first selected line: 8419 / 8419
  119. -- text alignment: 1
  120. -- font id: 0
  121. -- text size: 12
  122. -- style flags: 0
  123. -- line height: 16
  124. -- part name: 
  125. ----- HyperTalk script -----
  126. on mouseUp
  127.   visual effect checkerboard
  128.   GO TO NEXT CARD
  129. end mouseUp
  130.  
  131.  
  132.  
  133. -- part 9 (field)
  134. -- low flags: 01
  135. -- high flags: 0000
  136. -- rect: left=349 top=37 right=56 bottom=507
  137. -- title width / last selected line: 0
  138. -- icon id / first selected line: 0 / 0
  139. -- text alignment: 1
  140. -- font id: 16
  141. -- text size: 12
  142. -- style flags: 0
  143. -- line height: 16
  144. -- part name: DATE
  145.  
  146.  
  147. -- part 10 (field)
  148. -- low flags: 01
  149. -- high flags: 0000
  150. -- rect: left=404 top=57 right=75 bottom=465
  151. -- title width / last selected line: 0
  152. -- icon id / first selected line: 0 / 0
  153. -- text alignment: 1
  154. -- font id: 16
  155. -- text size: 12
  156. -- style flags: 0
  157. -- line height: 16
  158. -- part name: TIME
  159.  
  160.  
  161. -- part 15 (button)
  162. -- low flags: 00
  163. -- high flags: 8003
  164. -- rect: left=44 top=310 right=332 bottom=144
  165. -- title width / last selected line: 0
  166. -- icon id / first selected line: 0 / 0
  167. -- text alignment: 1
  168. -- font id: 0
  169. -- text size: 12
  170. -- style flags: 0
  171. -- line height: 16
  172. -- part name: ADD CHECK
  173. ----- HyperTalk script -----
  174. on mouseUp
  175.   set lockScreen to true
  176.   go to last card of background "CHECK"
  177.   get background field "CH NUM"
  178.   set lockScreen to false
  179.   doMenu "New Card"
  180.   put it + 1 into background field "CH NUM"
  181. end mouseUp
  182.  
  183.  
  184.  
  185. -- part 16 (field)
  186. -- low flags: 00
  187. -- high flags: 0000
  188. -- rect: left=18 top=120 right=172 bottom=178
  189. -- title width / last selected line: 0
  190. -- icon id / first selected line: 0 / 0
  191. -- text alignment: 0
  192. -- font id: 16
  193. -- text size: 12
  194. -- style flags: 0
  195. -- line height: 16
  196. -- part name: NAME
  197. ----- HyperTalk script -----
  198. on closeField
  199.   global NAME
  200.   put field "NAME" into NAME
  201. end closeField
  202.  
  203.  
  204. -- part 17 (field)
  205. -- low flags: 00
  206. -- high flags: 0000
  207. -- rect: left=182 top=120 right=140 bottom=340
  208. -- title width / last selected line: 0
  209. -- icon id / first selected line: 0 / 0
  210. -- text alignment: 0
  211. -- font id: 16
  212. -- text size: 12
  213. -- style flags: 0
  214. -- line height: 16
  215. -- part name: ACC NO
  216. ----- HyperTalk script -----
  217. on closeField
  218.   global ACC
  219.   put field "ACC NO" into ACC
  220. end closeField
  221.  
  222.  
  223. -- part 18 (field)
  224. -- low flags: 01
  225. -- high flags: 0000
  226. -- rect: left=126 top=194 right=212 bottom=204
  227. -- title width / last selected line: 0
  228. -- icon id / first selected line: 0 / 0
  229. -- text alignment: 65535
  230. -- font id: 16
  231. -- text size: 12
  232. -- style flags: 0
  233. -- line height: 16
  234. -- part name: dpTot
  235. ----- HyperTalk script -----
  236. on idle
  237.   set numberFormat to "$0.00"
  238. end idle
  239.  
  240.  
  241. -- part 19 (field)
  242. -- low flags: 01
  243. -- high flags: 0000
  244. -- rect: left=126 top=216 right=234 bottom=204
  245. -- title width / last selected line: 0
  246. -- icon id / first selected line: 0 / 0
  247. -- text alignment: 65535
  248. -- font id: 16
  249. -- text size: 12
  250. -- style flags: 0
  251. -- line height: 16
  252. -- part name: ckTot
  253. ----- HyperTalk script -----
  254. on idle
  255.   set numberFormat to "$0.00"
  256. end idle
  257.  
  258.  
  259. -- part 20 (field)
  260. -- low flags: 01
  261. -- high flags: 0000
  262. -- rect: left=126 top=238 right=257 bottom=204
  263. -- title width / last selected line: 0
  264. -- icon id / first selected line: 0 / 0
  265. -- text alignment: 65535
  266. -- font id: 16
  267. -- text size: 12
  268. -- style flags: 0
  269. -- line height: 16
  270. -- part name: scTot
  271. ----- HyperTalk script -----
  272. on idle
  273.   set numberFormat to "$0.00"
  274. end idle
  275.  
  276.  
  277. -- part 22 (field)
  278. -- low flags: 01
  279. -- high flags: 0000
  280. -- rect: left=214 top=194 right=212 bottom=292
  281. -- title width / last selected line: 0
  282. -- icon id / first selected line: 0 / 0
  283. -- text alignment: 65535
  284. -- font id: 16
  285. -- text size: 12
  286. -- style flags: 0
  287. -- line height: 16
  288. -- part name: cdTot
  289. ----- HyperTalk script -----
  290. on idle
  291.   set numberFormat to "$0.00"
  292. end idle
  293.  
  294.  
  295. -- part 23 (field)
  296. -- low flags: 01
  297. -- high flags: 0000
  298. -- rect: left=301 top=194 right=212 bottom=379
  299. -- title width / last selected line: 0
  300. -- icon id / first selected line: 0 / 0
  301. -- text alignment: 65535
  302. -- font id: 16
  303. -- text size: 12
  304. -- style flags: 0
  305. -- line height: 16
  306. -- part name: dtTot
  307. ----- HyperTalk script -----
  308. on idle
  309.   set numberFormat to "$0.00"
  310. end idle
  311.  
  312.  
  313. -- part 24 (field)
  314. -- low flags: 01
  315. -- high flags: 0000
  316. -- rect: left=214 top=238 right=257 bottom=292
  317. -- title width / last selected line: 0
  318. -- icon id / first selected line: 0 / 0
  319. -- text alignment: 65535
  320. -- font id: 16
  321. -- text size: 12
  322. -- style flags: 0
  323. -- line height: 16
  324. -- part name: csTot
  325. ----- HyperTalk script -----
  326. on idle
  327.   set numberFormat to "$0.00"
  328. end idle
  329.  
  330.  
  331. -- part 25 (field)
  332. -- low flags: 01
  333. -- high flags: 0000
  334. -- rect: left=301 top=238 right=257 bottom=379
  335. -- title width / last selected line: 0
  336. -- icon id / first selected line: 0 / 0
  337. -- text alignment: 65535
  338. -- font id: 16
  339. -- text size: 12
  340. -- style flags: 0
  341. -- line height: 16
  342. -- part name: seTot
  343. ----- HyperTalk script -----
  344. on idle
  345.   set numberFormat to "$0.00"
  346. end idle
  347.  
  348.  
  349. -- part 26 (field)
  350. -- low flags: 01
  351. -- high flags: 0000
  352. -- rect: left=214 top=216 right=234 bottom=292
  353. -- title width / last selected line: 0
  354. -- icon id / first selected line: 0 / 0
  355. -- text alignment: 65535
  356. -- font id: 16
  357. -- text size: 12
  358. -- style flags: 0
  359. -- line height: 16
  360. -- part name: ccTot
  361.  
  362.  
  363. -- part 27 (field)
  364. -- low flags: 01
  365. -- high flags: 0000
  366. -- rect: left=301 top=216 right=234 bottom=379
  367. -- title width / last selected line: 0
  368. -- icon id / first selected line: 0 / 0
  369. -- text alignment: 65535
  370. -- font id: 16
  371. -- text size: 12
  372. -- style flags: 0
  373. -- line height: 16
  374. -- part name: chTot
  375.